home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Demos / StrDemo.pas < prev    next >
Pascal/Delphi Source File  |  1991-12-31  |  452b  |  21 lines
  1. Program StrDemo;
  2.  
  3. { This small program demonstrates how to use one of the new }
  4. { features in the UTILUNIT.PAS file                         }
  5.  
  6. Uses UtilUnit;
  7.  
  8. Var
  9.         R : Real;
  10.  
  11. Begin
  12.   Write('Enter a number: '); ReadLn(R);
  13.  
  14.   { All output to the StrOut file is stored in the string StrData. }
  15.   Write(StrOut,R :20:10);
  16.  
  17.   { StrData now contains the entered number. }
  18.   { Including the formatting spaces. }
  19.   Writeln('You entered: ',StrData);
  20. End.
  21.